home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-01 / flilib.zip / FLISRC.ZIP / WAITVBL.ASM < prev    next >
Assembly Source File  |  1989-11-10  |  233b  |  19 lines
  1.  
  2.  
  3. _TEXT    SEGMENT  BYTE PUBLIC 'CODE'
  4.  
  5.     ASSUME  CS: _TEXT 
  6.  
  7.     public _aa_wait_vblank
  8. _aa_wait_vblank proc far
  9.     mov    dx,3dah    ;video status port
  10. wvb:
  11.     in    al,dx
  12.     test al,8
  13.     jz wvb
  14.     ret
  15. _aa_wait_vblank endp
  16.  
  17. _TEXT    ENDS
  18. END
  19.